{ ****************************************************

SX Memory Box

Script: D. Lenz

****************************************************** }

on init

    hide_inst_icon

    make_perfview

    set_ui_height_px(249)

    set_script_title("Memorybox")



    declare                       $CURRENT_GROUP   := 0

    declare                       $CLICK_GROUP_RR1 := 31

    declare                       $CLICK_GROUP_RR2 := 32

    declare                       $CLICK_GROUP_RR3 := 33

    declare                       $TURN_GROUP_RR1  := 34

    declare                       $TURN_GROUP_RR2  := 35

    declare                       $TURN_GROUP_RR3  := 36



    declare                       $GROUPCOUNT      := 0



    declare                       !IR_NAMES[10]

    !IR_NAMES[0]  := "623537_1"

    !IR_NAMES[1]  := "623537_5"

    !IR_NAMES[2]  := "623537_6"

    !IR_NAMES[3]  := "623537_7"

    !IR_NAMES[4]  := "623537_8"

    !IR_NAMES[5]  := "623537_9"

    !IR_NAMES[6]  := "623537_11"

    !IR_NAMES[7]  := "623537_12"

    !IR_NAMES[8]  := "623537_13"

    !IR_NAMES[9]  := "623537_14"



    declare                       !IR_WAVES[10]

    !IR_WAVES[0]  := "ARENA A.wav"

    !IR_WAVES[1]  := "BRIGHT CHAMBER.wav"

    !IR_WAVES[2]  := "BRIGHT ROOM.wav"

    !IR_WAVES[3]  := "CATHEDRAL.wav"

    !IR_WAVES[4]  := "CHAINSAW.wav"

    !IR_WAVES[5]  := "COMB A.wav"

    !IR_WAVES[6]  := "DEEP SPACE.wav"

    !IR_WAVES[7]  := "DEGRADED.wav"

    !IR_WAVES[8]  := "EFFECTIVE.wav"

    !IR_WAVES[9]  := "FX FILTER.wav"

  

    declare ui_slider             $attackknob(0,1000000)

    make_persistent              ($attackknob)

    read_persistent_var          ($attackknob)

    set_control_par_str(get_ui_id($attackknob),$CONTROL_PAR_PICTURE,"sx_music_box_draft 5")

    set_control_par_str(get_ui_id($attackknob),$CONTROL_PAR_HELP,"")

    set_control_par_str(get_ui_id($attackknob),$CONTROL_PAR_TEXT,"")

    set_control_par_str(get_ui_id($attackknob),$CONTROL_PAR_AUTOMATION_NAME,"attack")

    set_control_par    (get_ui_id($attackknob),$CONTROL_PAR_ALLOW_AUTOMATION,1)

    set_control_par    (get_ui_id($attackknob),$CONTROL_PAR_MIN_VALUE,0)

    set_control_par    (get_ui_id($attackknob),$CONTROL_PAR_MAX_VALUE,1000000)

    set_control_par    (get_ui_id($attackknob),$CONTROL_PAR_DEFAULT_VALUE,0)

    set_control_par    (get_ui_id($attackknob),$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)

    set_control_par    (get_ui_id($attackknob),$CONTROL_PAR_WIDTH,46)

    set_control_par    (get_ui_id($attackknob),$CONTROL_PAR_HEIGHT,46)

    set_control_par    (get_ui_id($attackknob),$CONTROL_PAR_POS_X,21)

    set_control_par    (get_ui_id($attackknob),$CONTROL_PAR_POS_Y,173)



    declare ui_slider             $dampknob(0,900000)

    make_persistent              ($dampknob)

    read_persistent_var          ($dampknob)

    set_control_par_str(get_ui_id($dampknob),$CONTROL_PAR_PICTURE,"sx_music_box_draft 5")

    set_control_par_str(get_ui_id($dampknob),$CONTROL_PAR_HELP,"")

    set_control_par_str(get_ui_id($dampknob),$CONTROL_PAR_TEXT,"")

    set_control_par_str(get_ui_id($dampknob),$CONTROL_PAR_AUTOMATION_NAME,"damp")

    set_control_par    (get_ui_id($dampknob),$CONTROL_PAR_ALLOW_AUTOMATION,1)

    set_control_par    (get_ui_id($dampknob),$CONTROL_PAR_MIN_VALUE,0)

    set_control_par    (get_ui_id($dampknob),$CONTROL_PAR_MAX_VALUE,900000)

    set_control_par    (get_ui_id($dampknob),$CONTROL_PAR_DEFAULT_VALUE,0)

    set_control_par    (get_ui_id($dampknob),$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)

    set_control_par    (get_ui_id($dampknob),$CONTROL_PAR_WIDTH,46)

    set_control_par    (get_ui_id($dampknob),$CONTROL_PAR_HEIGHT,46)

    set_control_par    (get_ui_id($dampknob),$CONTROL_PAR_POS_X,99)

    set_control_par    (get_ui_id($dampknob),$CONTROL_PAR_POS_Y,173)



    declare ui_slider             $clickknob(0,1000000)

    make_persistent              ($clickknob)

    read_persistent_var          ($clickknob)

    set_control_par_str(get_ui_id($clickknob),$CONTROL_PAR_PICTURE,"sx_music_box_draft 5")

    set_control_par_str(get_ui_id($clickknob),$CONTROL_PAR_HELP,"")

    set_control_par_str(get_ui_id($clickknob),$CONTROL_PAR_TEXT,"")

    set_control_par_str(get_ui_id($clickknob),$CONTROL_PAR_AUTOMATION_NAME,"click amount")

    set_control_par    (get_ui_id($clickknob),$CONTROL_PAR_ALLOW_AUTOMATION,1)

    set_control_par    (get_ui_id($clickknob),$CONTROL_PAR_MIN_VALUE,0)

    set_control_par    (get_ui_id($clickknob),$CONTROL_PAR_MAX_VALUE,1000000)

    set_control_par    (get_ui_id($clickknob),$CONTROL_PAR_DEFAULT_VALUE,0)

    set_control_par    (get_ui_id($clickknob),$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)

    set_control_par    (get_ui_id($clickknob),$CONTROL_PAR_WIDTH,46)

    set_control_par    (get_ui_id($clickknob),$CONTROL_PAR_HEIGHT,46)

    set_control_par    (get_ui_id($clickknob),$CONTROL_PAR_POS_X,277)

    set_control_par    (get_ui_id($clickknob),$CONTROL_PAR_POS_Y,174)



    declare ui_slider             $turnknob(0,1000000)

    make_persistent              ($turnknob)

    read_persistent_var          ($turnknob)

    set_control_par_str(get_ui_id($turnknob),$CONTROL_PAR_PICTURE,"sx_music_box_draft 5")

    set_control_par_str(get_ui_id($turnknob),$CONTROL_PAR_HELP,"")

    set_control_par_str(get_ui_id($turnknob),$CONTROL_PAR_TEXT,"")

    set_control_par_str(get_ui_id($turnknob),$CONTROL_PAR_AUTOMATION_NAME,"turn amount")

    set_control_par    (get_ui_id($turnknob),$CONTROL_PAR_ALLOW_AUTOMATION,1)

    set_control_par    (get_ui_id($turnknob),$CONTROL_PAR_MIN_VALUE,0)

    set_control_par    (get_ui_id($turnknob),$CONTROL_PAR_MAX_VALUE,1000000)

    set_control_par    (get_ui_id($turnknob),$CONTROL_PAR_DEFAULT_VALUE,0)

    set_control_par    (get_ui_id($turnknob),$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)

    set_control_par    (get_ui_id($turnknob),$CONTROL_PAR_WIDTH,46)

    set_control_par    (get_ui_id($turnknob),$CONTROL_PAR_HEIGHT,46)

    set_control_par    (get_ui_id($turnknob),$CONTROL_PAR_POS_X,347)

    set_control_par    (get_ui_id($turnknob),$CONTROL_PAR_POS_Y,174)



    declare ui_slider             $ir_send_knob(0,1000000)

    make_persistent              ($ir_send_knob)

    read_persistent_var          ($ir_send_knob)

    set_control_par_str(get_ui_id($ir_send_knob),$CONTROL_PAR_PICTURE,"sx_music_box_draft 5")

    set_control_par_str(get_ui_id($ir_send_knob),$CONTROL_PAR_HELP,"")

    set_control_par_str(get_ui_id($ir_send_knob),$CONTROL_PAR_TEXT,"")

    set_control_par_str(get_ui_id($ir_send_knob),$CONTROL_PAR_AUTOMATION_NAME,"space amount")

    set_control_par    (get_ui_id($ir_send_knob),$CONTROL_PAR_ALLOW_AUTOMATION,1)

    set_control_par    (get_ui_id($ir_send_knob),$CONTROL_PAR_MIN_VALUE,0)

    set_control_par    (get_ui_id($ir_send_knob),$CONTROL_PAR_MAX_VALUE,1000000)

    set_control_par    (get_ui_id($ir_send_knob),$CONTROL_PAR_DEFAULT_VALUE,0)

    set_control_par    (get_ui_id($ir_send_knob),$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)

    set_control_par    (get_ui_id($ir_send_knob),$CONTROL_PAR_WIDTH,46)

    set_control_par    (get_ui_id($ir_send_knob),$CONTROL_PAR_HEIGHT,46)

    set_control_par    (get_ui_id($ir_send_knob),$CONTROL_PAR_POS_X,573)

    set_control_par    (get_ui_id($ir_send_knob),$CONTROL_PAR_POS_Y,173)



    declare ui_menu               $instrument_select

    add_menu_item                ($instrument_select,"Dry",0)

    add_menu_item                ($instrument_select,"Boyd",3)

    add_menu_item                ($instrument_select,"Box Cutter",6)

    add_menu_item                ($instrument_select,"Bowed",9)

    add_menu_item                ($instrument_select,"Acoustic Tail",12)

    add_menu_item                ($instrument_select,"Double Stop",15)

    add_menu_item                ($instrument_select,"Dry Pluck",18)

    add_menu_item                ($instrument_select,"Making 2600",21)

    add_menu_item                ($instrument_select,"Movement",24)

    add_menu_item                ($instrument_select,"Prong&Roll",27)

    make_persistent              ($instrument_select)

    read_persistent_var          ($instrument_select)

    select ($instrument_select)

        case 0

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_1")

        case 3

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_2")

        case 6

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_3")

        case 9

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_4")

        case 12

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_5")

        case 15

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_6")

        case 18

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_7")

        case 21

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_8")

        case 24

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_9")

        case 27

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_10")

    end select

    $CURRENT_GROUP := $instrument_select

    set_control_par    (get_ui_id($instrument_select),$CONTROL_PAR_TEXTPOS_Y,1000)

    set_control_par    (get_ui_id($instrument_select),$CONTROL_PAR_WIDTH,109)

    set_control_par    (get_ui_id($instrument_select),$CONTROL_PAR_HEIGHT,17)

    set_control_par    (get_ui_id($instrument_select),$CONTROL_PAR_POS_X,19)

    set_control_par    (get_ui_id($instrument_select),$CONTROL_PAR_POS_Y,50)

    

    declare ui_menu               $IR_select

    $GROUPCOUNT := 0

    while ($GROUPCOUNT < 10)

        add_menu_item                ($IR_select,!IR_WAVES[$GROUPCOUNT],$GROUPCOUNT)

        inc($GROUPCOUNT)

    end while

    make_persistent              ($IR_select)

    read_persistent_var          ($IR_select)

    set_control_par_str(get_ui_id($IR_select),$CONTROL_PAR_PICTURE,!IR_NAMES[$IR_select])

    set_control_par    (get_ui_id($IR_select),$CONTROL_PAR_TEXTPOS_Y,1000)

    set_control_par    (get_ui_id($IR_select),$CONTROL_PAR_WIDTH,105)

    set_control_par    (get_ui_id($IR_select),$CONTROL_PAR_HEIGHT,17)

    set_control_par    (get_ui_id($IR_select),$CONTROL_PAR_POS_X,503)

    set_control_par    (get_ui_id($IR_select),$CONTROL_PAR_POS_Y,50)



    declare ui_slider             $grit_amount_knob(0,1000000)

    make_persistent              ($grit_amount_knob)

    read_persistent_var          ($grit_amount_knob)

    set_control_par_str(get_ui_id($grit_amount_knob),$CONTROL_PAR_PICTURE,"sx_music_box_draft 5")

    set_control_par_str(get_ui_id($grit_amount_knob),$CONTROL_PAR_HELP,"")

    set_control_par_str(get_ui_id($grit_amount_knob),$CONTROL_PAR_TEXT,"")

    set_control_par_str(get_ui_id($grit_amount_knob),$CONTROL_PAR_AUTOMATION_NAME,"grit amount")

    set_control_par    (get_ui_id($grit_amount_knob),$CONTROL_PAR_ALLOW_AUTOMATION,1)

    set_control_par    (get_ui_id($grit_amount_knob),$CONTROL_PAR_MIN_VALUE,0)

    set_control_par    (get_ui_id($grit_amount_knob),$CONTROL_PAR_MAX_VALUE,1000000)

    set_control_par    (get_ui_id($grit_amount_knob),$CONTROL_PAR_DEFAULT_VALUE,0)

    set_control_par    (get_ui_id($grit_amount_knob),$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)

    set_control_par    (get_ui_id($grit_amount_knob),$CONTROL_PAR_WIDTH,46)

    set_control_par    (get_ui_id($grit_amount_knob),$CONTROL_PAR_HEIGHT,46)

    set_control_par    (get_ui_id($grit_amount_knob),$CONTROL_PAR_POS_X,501)

    set_control_par    (get_ui_id($grit_amount_knob),$CONTROL_PAR_POS_Y,173)



    declare ui_switch             $grit_sw

    make_persistent              ($grit_sw)

    read_persistent_var          ($grit_sw)

    set_control_par_str(get_ui_id($grit_sw),$CONTROL_PAR_PICTURE,"sx_grit_sw")

    set_control_par_str(get_ui_id($grit_sw),$CONTROL_PAR_HELP,"")

    set_control_par_str(get_ui_id($grit_sw),$CONTROL_PAR_TEXT,"")

    set_control_par_str(get_ui_id($grit_sw),$CONTROL_PAR_AUTOMATION_NAME,"gritswitch")

    set_control_par    (get_ui_id($grit_sw),$CONTROL_PAR_ALLOW_AUTOMATION,1)

    set_control_par    (get_ui_id($grit_sw),$CONTROL_PAR_MIN_VALUE,0)

    set_control_par    (get_ui_id($grit_sw),$CONTROL_PAR_MAX_VALUE,1000000)

    set_control_par    (get_ui_id($grit_sw),$CONTROL_PAR_DEFAULT_VALUE,0)

    set_control_par    (get_ui_id($grit_sw),$CONTROL_PAR_WIDTH,82)

    set_control_par    (get_ui_id($grit_sw),$CONTROL_PAR_HEIGHT,22)

    set_control_par    (get_ui_id($grit_sw),$CONTROL_PAR_POS_X,470)

    set_control_par    (get_ui_id($grit_sw),$CONTROL_PAR_POS_Y,217)

end on



{ BEGIN UI_CONTROL DEFINITIONS }

on ui_control ($attackknob)

    $GROUPCOUNT := 0

    while ($GROUPCOUNT < $NUM_GROUPS)

        set_engine_par ($ENGINE_PAR_ATTACK,$attackknob,$GROUPCOUNT,0,-1)

        inc($GROUPCOUNT)        

    end while

end on

on ui_control ($dampknob)

    $GROUPCOUNT := 0

    while ($GROUPCOUNT < $NUM_GROUPS-3)

        set_engine_par ($ENGINE_PAR_DECAY,1000000-$dampknob,$GROUPCOUNT,0,-1)

        set_engine_par ($ENGINE_PAR_SUSTAIN,1000000-$dampknob,$GROUPCOUNT,0,-1)

        set_engine_par ($ENGINE_PAR_RELEASE,1000000-$dampknob,$GROUPCOUNT,0,-1)

        inc($GROUPCOUNT)

    end while

end on

on ui_control ($clickknob)

    set_engine_par($ENGINE_PAR_VOLUME,$clickknob,$CLICK_GROUP_RR1,0,-1)

    set_engine_par($ENGINE_PAR_VOLUME,$clickknob,$CLICK_GROUP_RR2,0,-1)

    set_engine_par($ENGINE_PAR_VOLUME,$clickknob,$CLICK_GROUP_RR3,0,-1)

end on

on ui_control ($turnknob)

    set_engine_par($ENGINE_PAR_VOLUME,$turnknob,$TURN_GROUP_RR1,0,-1)

    set_engine_par($ENGINE_PAR_VOLUME,$turnknob,$TURN_GROUP_RR2,0,-1)

    set_engine_par($ENGINE_PAR_VOLUME,$turnknob,$TURN_GROUP_RR3,0,-1)

end on

on ui_control ($ir_send_knob)

    $GROUPCOUNT := 0

    while ($GROUPCOUNT < $NUM_GROUPS)

        set_engine_par ($ENGINE_PAR_SENDLEVEL_4,$ir_send_knob,$GROUPCOUNT,7,-1)

        inc($GROUPCOUNT)

    end while

end on

on ui_control ($instrument_select)

    select ($instrument_select)

        case 0

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_1")

        case 3

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_2")

        case 6

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_3")

        case 9

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_4")

        case 12

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_5")

        case 15

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_6")

        case 18

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_7")

        case 21

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_8")

        case 24

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_9")

        case 27

            set_control_par_str(get_ui_id($instrument_select),$CONTROL_PAR_PICTURE,"menu_group_RR_select_631797_10")

    end select

    $CURRENT_GROUP := $instrument_select

end on



on ui_control ($IR_select)

    set_control_par_str(get_ui_id($IR_select),$CONTROL_PAR_PICTURE,!IR_NAMES[$IR_select])

    load_ir_sample(!IR_WAVES[$IR_select],4,0)

end on



on ui_control ($grit_amount_knob)

    $GROUPCOUNT := 0

    while ($GROUPCOUNT < $NUM_GROUPS)

        set_engine_par($ENGINE_PAR_SK_DRIVE,$grit_amount_knob,$GROUPCOUNT,5,-1)

        inc($GROUPCOUNT)

    end while

end on

on ui_control ($grit_sw)

    $GROUPCOUNT := 0

    while ($GROUPCOUNT < $NUM_GROUPS)

        set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$grit_sw,$GROUPCOUNT,5,-1)

        inc($GROUPCOUNT)

    end while

end on

{ END UI_CONTROL DEFINITIONS }



on note

    disallow_group($ALL_GROUPS)

    allow_group($CURRENT_GROUP+1)

    allow_group($CURRENT_GROUP+2)

    allow_group($CURRENT_GROUP+3)

    if ($clickknob > 0)

        allow_group($CLICK_GROUP_RR1)

        allow_group($CLICK_GROUP_RR2)

        allow_group($CLICK_GROUP_RR3)

    end if

    if ($turnknob > 0)

        allow_group($TURN_GROUP_RR1)  

        allow_group($TURN_GROUP_RR2)

        allow_group($TURN_GROUP_RR3)

    end if

end on

